pxpEppLEH5GGF)ܭ ܩ ܩ ܢ܌ܭ h>Ž`GhHGG5--LGܭ0 ܭ ܭGG@ܭ) GʎGGGhhGhHGGHGHG oGHHG ,243,71,176,3,169$L# 46,44,169,30,157,38,72,202EM# 16,240,173,7,133,32,111,71gN# 141,47,72,140,48,72,173,182O# 132,32,111,71,141,50,72,140P# 51,72,173,6,133,32,111,71Q# 141,16,72,140,17,72,173,14R# 220,32,111,71,141,19,72,140 S`3 & & &eHh8˩5` ܩ ܩ ܭ ܭGGlG      #  V"C.Itoh 8510" V#JOYSTICK# V  BBA ( -11 2 B74293 "ERROR IN DATA!"S (# 120,162,5,160,144,185,0,112v )# 153,0,69,200,208,247,238,151 *# 112,238,154,112,202,208,238,162 +# 2,169,234,157,212,194,202,16 ,# 250,76,180,69,165,1,72,169 -# 53,133,1,174,254,25 173,235,71,133,1,174,240,71)c# 172,241,71,173,239,71,64,72Jd# 32,125,71,168,104,74,74,74je# 74,32,125,71,96,41,15,216f# 56,233,10,176,2,105,57,24g# 105,1,96,169,51,133,1,160h# 30,169,0,133,3,177,6,10i# 38,3,10,38,3,10,38,3j# EH  h>Ž`BORDERCLOCK TEST USER TEST LAST,9,9,141,14$ =# 220,173,235,71,133,1,173,239F ># 71,64,169,127,141,0,220,173g ?# 1,220,205,1,220,208,248,41 @# 32,240,7,169,255,141,236,71 A# 208,202,142,240,71,140,241,71 B# 186,232,232,232,142,242,71,104 C# 104,141,238,71,104,72,141,2W32,32 {# 32,32,32,32,32,32,32,32#|# 32,32,32,32,0,0,0,09}# 0,0,0,0,0,0,0,00) *********************************Q * THIS PROGRAM CREATES A FILE, *y * WHICH MUST BE CONVERTED TO * * THE GEOS-FORMAT BY USING THE * * "FILE-MASTER". * * LOAD ADDRESS = DEC(28816) *  * ENTR# 20,72,104,141,243,71,162,5/T# 181,2,72,202,16,250,169,189QU# 133,5,169,176,133,4,169,246qV# 133,6,169,71,133,7,32,139W# 71,169,190,133,5,169,240,133X# 4,169,21,133,6,169,72,133Y# 7,32,139,71,162,0,104,149Z# 2,232,224,6,208,248 TqTI*I*II)q) H  p@spINGLE TEP IM.UEDIGER ERKLOH?Uh>Ž` %R %#R= Single Step Shift = Quickmode After Loading press C= for Init  ), i 5,172,255' .# 255,142,244,71,140,245,71,162J /# 6,160,70,142,254,255,140,255m 0# 255,173,14,220,41,254,141,14 1# 220,173,13,220,169,127,141,13 2# 220,169,129,141,13,220,162,23 3# 160,0,142,4,220,140,5,220 4# 173,14,220,9,9,141,14,220 133,2,169,208,24,101,3,133#k# 3,152,72,160,7,177,2,145El# 4,136,16,249,104,168,56,165cm# 4,233,8,133,4,165,5,233n# 0,133,5,136,16,203,169,53o# 133,1,96,173,13,220,169,127p# 141,13,220,169,129,141,13,220q# 173,14,220,9,9,141,14,22 TqTI*I*II)q) H  p@spINGLE TEP IM.UEDIGER ERKLOH?Uh>Ž` %R %#RC= Single Step Shift = Quickmode After Loading press C= for Init  ), i 37D# 71,173,238,71,72,173,243,719E# 72,162,0,173,237,71,32,111ZF# 71,141,21,72,140,22,72,160{G# 0,185,238,71,140,237,71,32H# 111,71,157,23,72,232,152,157I# 23,72,172,237,71,232,232,200J# 192,6,208,229,162,7,173,243K# 71,72,78G oGH蘝HGGHNG.,&H oG/H0H oG2H3H oGHH oGHHhGHG GH GhGܢ) GЭ ܢ ܭGGGG@H }GhJJJJ }G`)8 i9iY POINT = ""( """ ) *A  * END ADDRESS = DEC(29504) *i  * FILE TYPE = 5 (ACCESSORY)* ********************************* : (147);: CLR HOME "PROGRAM NAME";F$  1,8,2,F$",P,W"  I0 687 # A:1,(A);:,173,236[# 71,240,27,169,127,141,0,220:\# 162,128,173,1,220,205,1,220\]# 208,248,41,32,208,8,206,236^# 71,208,239,202,208,236,169,1_# 141,25,208,173,13,220,162,1`# 160,0,136,208,253,202,208,250a# 173,14,220,9,9,141,14,220b# 0(16l*1&h`U@@$TF&#UUV%53 EEEFROM ABACUSRUSS TABERA SIMPLE ACCESSORY5# 104,133,1,162,62,160,194,142= 6# 155,132,140,156,132,96,141,239^ 7# 71,104,72,141,243,71,165,1 8# 141,235,71,169,53,133,1,169 9# 1,45,25,208,45,26,208,240 :# 3,76,203,71,169,253,141,0 ;# 220,173,1,220,48,20,173,13 <# 220,173,14,2200 r# 173,235,71,133,1,173,239,71&s# 108,244,71,0,0,0,0,0>t# 0,0,0,0,0,0,32,16Yu# 3,32,32,1,3,32,24,18wv# 32,25,18,32,19,16,32,14w# 22,35,2,4,9,26,3,32x# 32,32,32,32,32,32,32,32y# 32,32,32,32,32,32,32,32z# 32,32,32,32,32,32,AA   _m 6 Q /x !L? `   qee   ` ;Š` I 4)  h¥ 40@ P a  `C (HHdhiGv \@>);MnCK2635 ERROR IN DATA"u1{(# 165,1,72,9,7,133,1,238)#32,208,104,133,1,162,62,160*# 194,142,155,132,140,156,132,96Td 1,8,2,"BCC APP.,P,W":I1780817823:X:CKCKXG1,(X);MnCK1458 "ERROR IN DATA"u1{(# 165,1,72,9,7,133,1,238)# 32,208,104,133,1,76,74,204 LAST eb @piJzJRND"AAA:A@UUi).JJ1A:AEid RITE*** 8"EAD SPRITE"5!L I10 "SPRITE NOT YET DEFINED":ZZ1 1000::5080M!`5,"B-R:"3;0;I1 ;I2^!t5,"B-P:"3,5m! I0 62x! 2220!832I,A:I,A;""!I:!!***READ INFO SCREEN*****! IT0 :  A$(6,2),I,1):3,X$;(I :3,(0); ) IT1 IT53 " ALSE TRACK":66801)5,"M-W:"(6)(0)(2)(IT)(IS)P)5,"M-W"(0)(0)(1)(144)h)"RITTEN":})5,"B-A:"0;IT;IS)5,A,B$,C,D:A,B$,C,D:)"<> TO CONTINUE";X$ 5580#A$(6,2)A$(6,2)A$: 5540#$ **** CREATE INFO SCREEN ******=$A$(1,1)"1 TARTING ADDRESS : "d$A$(2,1)"2 ND ADDRESS : "$A$(3,1)"3 NITIALIZATION : "$0A$(4,1)"4 ROGRAM NAME : "$DA$(5,1)"5  nD`AUA!%Io ;Š`8iH h `i ` ?C<8 8: ; `981AA I2` i>n>s>?E<_x> DP>>>>0oII160 I16: 4540NA$NA$A$:I:5,"B-P:";3;BP19.2220:I1$A$:I1(I1$):J2220:I2$A$:I2(I2$):\  F10 4740  N$"DIR" "";NA$:47404" "; (34);NA$;(34)H N$"DIR" 4740\ SU$(NA$,1,SU) "3,(GT);&3,(FS);& GT1 6340 '$ X$=A$(1,2):GOSUB6720+'8 PRINT#3,CHR$(X2);CHR$(X1);@'LX$A$(1,2):6720T'`3,(X2);(X1);i'tX$A$(2,2):6720}'3,(X2);(X1);'X$A$(3,2):6720'3,(X2);(X1);'X(A$(4,2)): X19 ժժժUUUUUUUUUUUUUUUUUUUUUUUUUUUU `TRACK=0!5,"B-R:"3;0;IT;IS!(5,"B-P:"3,0"<I16:A$(I,2)"":I-"P2220:A 0 5600F"U2220:A255 5600^"Z2220:A 3 5600v"_2220:A21 5600"d5,"B-P:"3,71"x 2220:XA" 2220:XX256A"A$(1,2)(X)" 2220:X\),)@X(X$):X1(X256):X2(XX1256 ))T*h127,191,223,239,247,251,253,254ժժժժUUUUUUUUUUUUUUUUUUUUUUU (HHdhiGv \@>);MnCK2635 ERROR IN DATA"u1{(# 165,1,72,9,7,133,1,238)#32,208,104,133,1,162,62,160*# 194,142,155,132,140,156,132,96 (HHdhiGv \@>);MnCK2635 ERROR IN DATA"u1{(# 165,1,72,9,7,133,1,238)#32,208,104,133,1,162,62,160*# 194,142,155,132,140,156,132,96f>A g;AUU.>2J g;A >ic9ժժժժUUUUUUUUUUUUUUUUUUUUUUUUUUUUOUND": 4900 p SV$(NA$,1,SU) "OUND": 4900# NA$"": N$="";  (203)64 4860H BPBP32O Jr  TN0 "":TTN:SSN:4200  N$"I" "ORRY, NOT FOUND." "<> TO CONTINUE";X$: $ *** READ SP X19'5,"B-P:"3,77' I1 X:X$(A$(4,2),I,1):3,X$;(I :3,(0);.(X(A$(5,2)): X19 X19@((5,"B-P:"3,97g(< I1 X:X$(A$(5,2),I,1):3,X$;x(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$(Iݠ]]U]AAAAՀՀdeskTop V1.2Brian Dougherty1a0aUse the deskTop to manage and manipulate your files. V1.1Tony RequistA" 2220:XX256A"A$(2,2)(X)# 2220:XA# 2220:XX256A'#A$(3,2)(X)>#, 2220:A0 5460\#@A$(4,2)A$(4,2)A$: 5420n#T5,"B-P:"3,97#h 2220:A0 5520#|A$(5,2)A$(5,2)A$: 5480#5,"B-P:"3,160# 2220:A0  -`K\ i ߭\ P`[J $8A\ JJ ` Š! \ Š ȱ  PL_ P `JJ\   {h L Ln ,UA* 'Ll ;'LM  L ! `XLV <  !< 0=<HwLV J<  e<Hii  ?  ? V  k( #  `A  A`  < 0H ; @ H  L-IL L s V¥F G©?( nΩ   .PL  5> 0Q>HH  L?  40 T0   ?` !A V¥ `   +  `   $(BB쭬 $ ? J`B ޅ CB HH v ȥ  e  hh B ޅ ` .0 ` ! ȱ  w ȱ  w` : ȱ  ! >   H Hhi B!  c @. { C? H@. {    {  {    H {  C+ H {  { WA i'A  ? H 'B)@ *=" HIBA<   {H5'Ѝ(ЭG h>`` ! p0 6 40 T0A   40 `HH T0hhH D0hH 1h)@H 1K ȩ5 h65 1 0=ȱ .   ¸P #ŠeP`$  Š``H` l w ` # P`mB  GŠB  @ P: [Ņ V¥& - ,K5     , -ZA LA ?A [ h©AAo ?A'['A''`  F; 0z;HH ;   0; @HHL / 5©`AiJ   ` ;8S ` 8 ҅ 8 0 n } A V`  8 058 @ HAEIWfuy}8888888888888888888888888889I`b9j9`AA`HH , eehh F WALJ y&`  ` ,UA0` 'Ll ;'LM ^oiiA o   ?A''''A'o'A''BBAA ' L !AAAAL  !L! ',UA }!L 9  9HH 6 C 5 6 Z `JA h Lh© 9 ' J /?A o? A $X (<y HJ  b¥ H H8  PX Hȹ wh`#`  l l l$`*`  ` )IJJJ8e=` @݅ ;ŠS n <LHVA n =LH<ԅ t© ©P$ ŠILP n = H`X`8 ` p w `,0 ;' BI@B *`06(>.  V¢ qL` ŠH h` >  0HH h8 eioiI Š LLHH -hh ŠH ?F;;M V¥D  HI h Šʩ aN; ;; ΅ _  L` ; 0;HHjLV  H  L ?    ` ­ 40 T0 ai9;AA   V¢ A A `  f; 0# Nȩ0ȩ:,ȭ)iAȭ)iAȩ 5 \ W h | _Š  ` L  LH W )  )  h` L L ^ GŠX  wGL{3 ,UA  V j L`(H 3   6 ; B'VA"I \P,PBBB ޅ L  C , B   ` B ` T%B ޅ VAWA &  h¸P ȱ  B /?A0 o?l9< HhhX Ѕ9I H  40L KmA ]   -%  he e  ɢ`((  r9V Šd T    J - # -` i& ee ` #9  (ȥe `` Š! \©H h  _` H hA A 6,UA }! @ 3 ` 40 T0 L L9 s gJ Ao  ?  V¥CoA ! 40 T0AoJ F J  L `  < 0H ZABIBi9; V¥`)@L) *`B BHH hh BB`BB P*e`BB )%  P*e8`L@BBBr*`xBBBBBօ1')@ =+P * ) ȱ !iȄ K?AA T H HHH8x7 H8?7A[_ hhh h Ј/ ) .`0;FQ\gr}sss 9 ) `x L  H` 99999999:::x  @.` iD ]8``\ i e  `H d$  h¢ ¢ h "ȱ XA & h­XA x%`@ $ $P `H & 1 &ȑ&hH %P %i ihH D0 %h`% B,Ѝ`BB`/ 9 $/`BL- -B`-,,P -,t,HH hhJ  n(;A    ?i9~9HH,, Vhh К` 9  A 0r9HH 9  A 0r9HB ­''L - LP V©` : 0:HL LL ZAi i A o  ?A[A  h ȱ CuA ? $A"A[A oA  ZAL AA<  A' ,5BBKBB , H , -h`'' Š e, _* s* ,j G© ' ' JA ?ABBB JŠ' (! , s* , P @, JŠH - ,h`xBB) n)P ԅ 1Aͅ Z>BBL/~4$ 34u3 /i`H 19 /?hH X1e i6$ A o? Kh`)i`8i`H BBh`H 0h 0H X1 $hH 0h` T0 1 ȑ ʊ`H X1 *h 0L* AA`H0 9HAA LHA H Ch;Ahi AiK L%WAH z!h D&   6LLZAWAYA ! #ZA''YA i'''B BAA 'AAAA !YA D&P  ZA LiiAo@ r*ϩ0 B(`r***l*+++\|'*'' +'r*`'' +r*`Hh)BBL+B''J r*`B +r*3B JJȥH +h ,HH 8  8   hi0hi ` (/ E` 8  HL : EHH H 0 Eh hi hi:'h:+LHRH ȱ JfJfh KLE]  K mAA  ʄ 1`5 ! ie ȑȑȩ ȩ!`H 1$& Ƚ,& 84& Ƚ<& h`  0000XXXX  H l0 & &P H' y& & &h`\ n e\`&`HH 'hP 8HoDB ­''L - S?` --݅LA ` ȱ L -   Ln.L.`LY. +$   x.jLA` ?/ -/LARUNLY. > -1 .Jɀ .LA ?/ -. !HH VhhТ`AL; :   0: 0 HHA,',UAPL!WA LnL!H }!h T!`WA & UA 0WA H'VA` !WA 0WAUAVA`UA WA 1 i ȱ   5'Ѝ(Щ0(ȱ)0Ѣ) ((`)((l)))(0@BBBJ ` n)BBBB V)` n)BBBB` n) BJBJ`B ) BB`) )O BBeȱ8  *888`` 3 L dA L%XgN? x%i8 18Lc4 Lv  Lv LvA ] A @II `@/@. dIi Ii] AA i ?A ? #A'o'A''`HH hh:9A   e©$GHH Vhh  ̸P` 5;   7; 0< @HC߅XA8XA $A ©C߅XA n XA $L­XA &`i +` Jr*`ii8 BB @L,88ȑ`BB BB ` 'B' 'BBBBB`B e A e i ` !\ $L e] &L& ©C!߅ XA  n XA & XA l0e !XAXA`UA( ;'LM  '  `L  )  . h uh`87 18?7` 9 `HhH8 `hHu]uP ouEuh`K\!WAH i'J nh`h`H 40 !8 H `he Cih`KmA`` z//LA`:SYS( )LK8/ /}/ 0.` d'LOAD "", ,1 ɠ// :/ 1:/8 0;//8//`A,BA/C L,0,UA P "` }!` C` WA ?2"N V¸P ]"P ?WA H' "P .#P z!`  J< 0<H $ z!"LV¥ H HHHWAH z!h l0h h h h P%     $LL1  d: 0:p infoselect printerselect inputduplicateprintby iconby nameby dateby sizeby typeopencloserenamecopyadd drivevalidateformatBASICRESETQ-LINK A K? AA`) ~*A ` ?F f 8  LH  `H iѕAih` A`HH 1    BhH /hhʊ` Y2 b2H ~2hmAAAA A 6LL%H Y2 2 1hL52UA z!` ?:8i<`H 2    h ) EOS FileBASIC ProgramAssembly Prg.Data FileSystem FileDesk AccessoryApplicationApplication DataFont FilePrinter DriverInput Driver AM PMJanFebMarAprMayJunJulAugSepOctNovDec, 19A maximum of eight files maybe placed on the borde ~C_N@PL(P%$ V T qV'P ET VLP $Hȱ$hL qV V V ©-"P!P$P#P`"P!P$P#PP֍Q΍ qV VH Vh V   P`0 V V;:<P !P"PL qV )H+*T'EFe)C(rzUՃUU*U5jV=ȱ=ȱ=ȱ= ȱ= ȱ= L¥   ee ȱi8  (e ȱi  n(Đ(     !Iޥe e 8Ʃ 1h` 9 ) `,UAPUWAYA ;' MLz! z!YA &)@ 3fLV & JYA D&YA L + Z`  ; 0 ;H,UAp`,UA& z!3 V¸P@  r.This file can't be printedThis file can't be openedfrom the deskTop.Please insert a disk withinThis file is write protectedand can't be deletedalready existsPlease insert destination diskPut disk to format in drive: Aand enter a nam V V8e1(Pӥ'T) N. e 0/ ɥ'8 8 $ȥ$$ȥ$  $ V`0  LQLS` H$)/򃂀ƒA! 2 !$'-148:?CFJNRVZ^bfhknruy~ian Dougherty Doug FultsJim Defrisco Tony RequistCopyright 1985, Berkeley SoftworksGEOS deskTop designed byBrian DoughertySelectPrinter InputDevicePlease insert Q-LINK disk(Turn over GEOS disk)geosfileviewspecialGEOS infodeskToh`  0H 0hH 0 $h` BB`H6$ hH X1e h 1 /?A ? J8  e e  ?  ? )eLK 1  & ȱ ȩ H & 8  e e ȱ eh` B轁B not foundI:20Missing or unformatted diskI:22I:23I:24I:25Write protect tab on diskI:27I:29I:2EThis is a NON-GEOS disk.Would you like it converted?K bytes usedK bytes freePreferencesDRIVE ADRIVE BIn drive: APlease insert disk:Non-Gp 8ȱ8 Peȑ L"@` 9/ ) `[~C_N@PL(P%$ V T qV'P ET VLP $Hȱ$hL qV V V ©-"P!P$P#P``  : 0:H3A 3 14 1L15254 6 9AU<ɉI I58IIIIPIJIjiAmIII  ?`ALUՃ!~QJ}EE(e for it:Replace the contents ofwith the contents ofTurn Oxx original drive.Plug in & turn ON new drive.This operation may only beperformed on files from thecurrent diskThis operation may not beperformed on System filesperformed on Non-GEOS@h LKPhH qV ]S S$ȥ$ h V@LKP i$$ i$$hH  H  h T'Ph  xRLSLOS` ) 8` . m m $ $ إ4H $4 Uh4$)9 V4*    "%)-/268>BFJNQUX\`fjnrvx| LE\7;)J"87J*A"Q b m$qDTХ)D!)R6ԥ)BJ* lLiUUU%"Y( -.Db*)"J*RYUUU2UT>e"qID-D%)R".K 9 $h"h#` $ȱ$ H U Uh ` V 4 V8eHH Thh`$)2 V4#   HH Thh`&P%P`)  UP `) U`HHKKKKKKK.A 8eh Eh VU` V8e44i`.A `$ȱ$ ), & . e ȥ ` V$ȱ$ KP $. $ȱ$ $$ȱ$$ ȱ$ `) P`% .` %.` KKKK$ȱ  T'PLSLV$ $`$$ȥ$ V T qV V LOS4H $4 'U U)Q  (V U) U4 U U V Ve4 $) h48` $ȱ$P,'P V V Th4`'4$)L-#H"HKK3$`<:;   8`` H T0hhH D0hH 1h)@H 1K ȩ5 h65 1 056` 5$ 5$@ZA,UAP 6LL T0 =0ZA ͉ 40 0ZA L# ZAWAYA BIKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK :XX256A"A$(2,2)(X)" 2220:XA # 2220:XX256A#A$(3,2)(X)1#, 2220:A0 5460O#@A$(4,2)A$(4,2)A$: 5420a#T5,"B-P:"3,97x#h 2220:A0 5520#|A$(5,2)A$(5,2)A$: 5480#5,"B-P:"3,160# 2220:A0 5580#A$( : "$XA$(6,1)"6 ELP SCREEN : "%l******************************>%"REATE NFO CREEN"a% I 1 6:A$(I,1);A$(I,2):I%"NPUT NUMBER OR TO END ";X$% X$"E" "":6000% (X$)1 (X$)65760% "EAD SPRITE"(!L I10 "SPRITE NOT YET DEFINED":ZZ1 1000::5080@!`5,"B-R:"3;0;I1 ;I2Q!t5,"B-P:"3,5`! I0 62k! 2220!832I,A:I,A;""!I:!!***READ INFO SCREEN*****! IT0 : TRACK=0! &3,(FS);& GT1 6340&$ X$=A$(1,2):GOSUB6720'8 PRINT#3,CHR$(X2);CHR$(X1);3'LX$A$(1,2):6720G'`3,(X2);(X1);\'tX$A$(2,2):6720p'3,(X2);(X1);'X$A$(3,2):6720'3,(X2);(X1);'X(A$(4,2)): X19 X19'5,I16: 4540NA$NA$A$:I: 5,"B-P:";3;BP19'2220:I1$A$:I1(I1$):C2220:I2$A$:I2(I2$):U  F10 4740x  N$"DIR" "";NA$:47404" "; (34);NA$;(34)H N$"DIR" 4740\ SU$(NA$,1,SU) "OUN3,X$;(I :3,(0);) IT1 IT53 " ALSE TRACK":6680$)5,"M-W:"(6)(0)(2)(IT)(IS)C)5,"M-W"(0)(0)(1)(144)[)"RITTEN":p)5,"B-A:"0;IT;IS)5,A,B$,C,D:A,B$,C,D:)"<> TO CONTINUE";X$),)@X ***LOOK FOR DIR & SPRITE***"":T18:S1:N$"DIR" 4200;"AME TO SEARCH FOR:";SU$ISU(SU$)R,""@SV$"":I1SU:SV((SU$,I,1 )): SV192SV219 SVSV96TSV$SV$(SV):I:h5,"B-R:"3;0;T ;S|5,"B-P:"3,0BK0L"LEASE INPUT FILETYPE:"9`"ASIC=1 /=2 CC.=5 PPL.=6";X$:X(X$)Pt X1 X6 3660^FS0:GTXs5,"B-F:"0;IT;IS5,"B-R:";3;0;AT;AS5,"B-P:"3,AB193,(IT);3,(IS);3,(FS);3,(GT);K6,2)A$(6,2)A$: 5540# $ **** CREATE INFO SCREEN ******0$A$(1,1)"1 OAD ADDRESS : "W$A$(2,1)"2 ND ADDRESS : "~$A$(3,1)"3 NTRY POINT : "$0A$(4,1)"4 LASS : "$DA$(5,1)"5 UTHOR'S NAME "";A$((X$),1);" ";A$((X$),2)%21);"";&  (A$((X$),2))19 "";(&  A$((X$),2)3&4 57609&H?&\P&p5,"B-P:"3,0v&3,(0);(255);(3);(21);(191);& I0 62&3,((832I));&I&3,(FT128);&3,(GT);5,"B-R:"3;0;IT;IS!(5,"B-P:"3,0"<I16:A$(I,2)"":I "P2220:A 0 56009"U2220:A255 5600Q"Z2220:A 3 5600i"_2220:A21 5600{"d5,"B-P:"3,71"x 2220:XA" 2220:XX256A"A$(1,2)(X)" 2220:XA" 2220"B-P:"3,77' I1 X:X$(A$(4,2),I,1):3,X$;(I :3,(0);!(X(A$(5,2)): X19 X193((5,"B-P:"3,97Z(< I1 X:X$(A$(5,2),I,1):3,X$;k(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$(A$(6,2),I,1):D": 4900 p SV$(NA$,1,SU) "OUND": 4900 NA$"",  (203)64 48609 BPBP32@ Jc  TN0 "":TTN:SSN:4200  N$"DIR" "ORRY, NOT FOUND." "<> TO CONTINUE";X$: $ *** READ SPRITE*** 8O(X$):X1(X256):X2(XX1256 ))T*h127,191,223,239,247,251,253,2545,2)): X19 X193((5,"B-P:"3,97Z(< I1 X:X$(A$(5,2),I,1):3,X$;k(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$(A$(6,2),I,1):P2 2220TN$A$:TN(TN$) 2220 NA$""?SN$A$:SN(SN$):N$"DIR" "T=";T;" S=";SQ5,"B-P:";3;2_ J1 8r05,"B-P:";3;BPD 2220:F1$A$:F1(F1$) 63X 2220:l 2220: I1 16:2220 (A$)160 K(3,(JA);<3,(MO);P3,(TA);d3,(HO);x3,(MI);T AT1 AT35 ":LLEGAL TRACK":4040x5,"M-W:"(6)(0)(2)(AT)(AS)5,"M-W"(0)(0)(1)(144)"WRITTEN": "<> TO CONTINUE";X$:K$:HO(HO$):3160$ X$"MI" "INUTE :";MI$:MI(MI$):3160/ 3160Q "": *****GEOS FILE SET****u IT0 3660 : SHOULD BE SET ITTF:ISSF:IT,IS5,"B-A:"0;IT;IS$5,A,B$,C,D:A,B$,C,D:8 C 0 ITC:ISD: 360GT);&3,(FS);& GT1 6340'$ X$=A$(1,2):GOSUB6720$'8 PRINT#3,CHR$(X2);CHR$(X1);9'LX$A$(1,2):6720M'`3,(X2);(X1);b'tX$A$(2,2):6720v'3,(X2);(X1);'X$A$(3,2):6720'3,(X2);(X1);'X(A$(4,2)): X19 X19 )""<SV$"":I1SU: SV((SU$,I,1 )): SV192 SV219 SVSV96RSV$SV$(SV):I:h5,"B-R:"3;0;T ;Sy5,"B-P:"3,0BP2, 2220@TN$A$:TN(TN$)T 2220hNA$""|SN$A$:SN(SN$):N$"I" "T=";T;" S=";ST$): 2220:IS$A$:IS(IS$): FT0 2080P" ";FT;" ";TS;" ";SS;" ";(34);NA$;(34);e" ";IT;" ";ISy N$"I" 2080 SU$(NA$,1,SU) "FOUND.":Z11:  SV$(NA$,1,SU) "FOUND":Z11: NA$"":4 $"FILE TYPE :";FT08"INFO TRACK :";ITLL"INFO SECTOR :";ISb`5,"B-P:";3;BP21~t"FILE STRUCTURE :";FS"GEOS F-TYPE :";GT; GT1 " =ASIC" GT2 " =SSEMBLER" GT1 GT2 "EAR VX0:VY0:VT0 :` 2040,13:V21,1:V,30:V1,2006t JX114 X12314K IY11 Y121] P1024I40Jt 3000:VA%VI%VN% VA% 0 PS42 VA% 0 PS46 P1024 P2023 P,PS YY1: I : Y0 XX1:J:X0EOS" 3540  180# 3:5:V21,0:A :**********************c Z10: 1380 : T0 Z10  4ATT: DIR-TRACK FOUND HASS: DIR SECTOR FOUND \ABBP: BUFFER POINTER FILETYPE pTFTS:SFSS: TRACK FILE,SECTOR FILE FI$NA$  '5,"B-P:"3,77' I1 X:X$(A$(4,2),I,1):3,X$;(I :3,(0);'(X(A$(5,2)): X19 X199((5,"B-P:"3,97`(< I1 X:X$(A$(5,2),I,1):3,X$;q(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$(A$(6,2) FILE INFO = FDI": "REATE FILE = GEOS"b "NPUT/CHANGE DATE = DATE" "HANGE DISKETTES = DISK" "ND PROGRAM = END" "EAD INFO = INFO" N$"XXXXXXX" "OUR A$"E" 3120  A$"" 2300, P,PR.@ A$"*"A$" "26209T 3000Wh A$"*" VB%,VI% VN%w| A$" " VB%,VI%SP%(VT%) 2620 ***************** VY%Y :VX%((X)8):VT%XVX%8 VB%832VX%VY%3 : BYTE NUMBER CK" PRINT"";TA;  """ "EAR :";JA9 "ONTH :";MOP "AY :";TAg "OUR :";HO~ "INUTE :";MI "HANGE - TYPE FIRST TWO CHARACTERS OF CHOICE ( ,ETC.) "ONE - TYPE 4 "OUR CHOICE";X$H X$"END" H\ X$"YE" "EAR :";JA$:JA(JA$):3160p X$"MO" "ONTH :";MO$:MO(MO$):3160 X$"DA" "AY :";TA$:TA(TA$):3160 X$"HO" "OUR :";HO5,"B-P:";3;2 J1 85,"B-P:";3;BP; 2220:FT$A$:FT(FT$) 63W 2220:TS$A$:TS(TS$)s 2220:SS$A$:SS(SS$) I1 16:2220 (A$)160 I16: 18600NA$NA$A$:DI:X5,"B-P:";3;BP19l2220:IT$A$:IT(I,I,1):3,X$;(I :3,(0);) IT1 IT53 " ALSE TRACK":6680*)5,"M-W:"(6)(0)(2)(IT)(IS)I)5,"M-W"(0)(0)(1)(144)a)"RITTEN":v)5,"B-A:"0;IT;IS)5,A,B$,C,D:A,B$,C,D:)"<> TO CONTINUE";X$), :";JA "ONTH :";MO "AY :";TA3"OUR :";HOF("INUTE :";MIe<"FILE LENGTH :";LL256LHP "<> TO GO ON";X$:d ****************************x"":T18:S1:"AME TO SEARCH FOR:";SU$SU(SU$ (203)64 2180 HBPBP32\J5p TN0 "":TTN:SSN:1520;O**************i#3,A$:A$""A$(0)uA(A$){**********************K062:832K,0:K "PRITEMASTER"8 X10 :Y10:XX1:YY1:PS43L:% 2220:FSA:2220:GTA:2220:JAA:JA$(A)= 2220:MOA:MO$(A)i 2220:TAA:TA$(A):2220:HOA:HO$(A) 2220:MIA:MI$(A) 2220:LLA:2220:LHA: "";FI$;"" "STARTING TRACK :";TF "STARTING SECTOR :";SF( PS43< P1024(Y1)40X14P PR(P)-d P1023P2024 P,PSAx A$:A$""2680^ A$""X23 XX1{ A$""X0 XX1 A$""Y20 YY1 A$""Y0 YY1 A$"*" PR42: A$" " PR46: CHOICE";N$  N$"DIR" 40606 0 N$"SPL" 4060N D N$"CSP" 2320e X N$"RFL" 800~ l N$"DATE" 3160  N$"FDI" Z11 "": 980  N$"INFO" 5100  N$"DISK" 3:5:100  N$"END" 760  N$"GU)@X(X$):X1(X256):X2(XX1256 ))T *h127,191,223,239,247,251,253,2545,2)): X19 X199((5,"B-P:"3,97`(< I1 X:X$(A$(5,2),I,1):3,X$;q(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$(A$(6,2)"-------------"E "ONVERT ILES INTO FORMAT."N ""u "ISK DIRECTORY = DIR" ,"OAD SPRITE = SPL" @"REATE SPRITE = CSP" T"EAD FILE = RFL" |"ISPLAY  VI%(VB%) : CONTENTS$ VN%2(7VT%) : NEW BIT* D *******************W0 V21,0:"":rD ****** SET DATE ***X "--------- ------------l "";MO$;"/";TA$;"/19";JA$;" ";HO$;":";MI$;" O'CLO< P1024(Y1)40X14 P PR(P)&d P1023P2024 P,PS:x A$:A$""2680W A$""X23 XX1t A$""X0 XX1 A$""Y20 YY1 A$""Y0 YY1 A$"*" PR42: A$" " PR32: A$OUND": 4900 p SV$(NA$,1,SU) "OUND": 4900 NA$""2  (203)64 4860? BPBP32F Ji  TN0 "":TTN:SSN:4200  N$"DIR" "ORRY, NOT FOUND." "<> TO CONTINUE";X$: $ *** READ SPRITE***4 "OUR CHOICE";X$ H X$"END" A\ X$"YE" "EAR :";JA$:JA(JA$):3160xp X$"MO" "ONTH :";MO$:MO(MO$):3160 X$"DA" "AY :";TA$:TA(TA$):3160 X$"HO" "OUR :";HO$:HO( #A$(6,2)A$(6,2)A$: 5540#$ **** CREATE INFO SCREEN ******6$A$(1,1)"1 TARTING ADDRESS : "]$A$(2,1)"2 ND ADDRESS : "$A$(3,1)"3 NITIALIZATION : "$0A$(4,1)"4 ROGRAM NAME : "$DA$(5,1)"5 UTHOR'S  hX` ` d`H )h`h`H)JJJJh)ʤ5 )! Ѝ[J@[ʎ ,P $`hX`H : )  ܩ18 : ***LOOK FOR DIR & SPRITE***"":T18:S1:N$"DIR" 4200A"AME TO SEARCH FOR:";SU$OSU(SU$)X,""@SV$"":I1SU:SV((SU$,I,1 )): SV192SV219 SVSV96TSV$SV$(SV):I:h5,"B-R:"3;0;T ;S|5,"B-P:"3,0 "E" 3120 A$"" 2300 , P,PR'@ A$"*"A$" "26202T 3000Ph A$"*" VB%,VI% VN%p| A$" " VB%,VI%SP%(VT%){ 2620 ***************** VY%Y :VX%((X)8):VT%XVX%8 VB%832VX%VY%3 : BYTE]NUMBER VI 8"EAD SPRITE".!L I10 "SPRITE NOT YET DEFINED":ZZ1 1000::5080F!`5,"B-R:"3;0;I1 ;I2W!t5,"B-P:"3,5f! I0 62q! 2220!832I,A:I,A;""!I:!!***READ INFO SCREEN*****! IT0 : TRACK=0HO$):3160 X$"MI" "INUTE :";MI$:MI(MI$):3160( 3160W "": *****CHR$VALDATAREAD-ASCILE SET****{ IT0 3660 : SHOULD BE SET ITTF:ISSF:IT,IS5,"B-A:"0;IT;IS$5,A,B$,C,D:A,B$,C,D:8 C 0 ITC:ISD NAME : "$XA$(6,1)"6 ELP SCREEN : "%l******************************D%"REATE NFO CREEN"g% I 1 6:A$(I,1);A$(I,2):I%"NPUT NUMBER OR TO END ";X$% X$"E" "":6000% (X$)1 (X$)653)64 2180HBPBP32 \J.p TN0 "":TTN:SSN:15204H**************b#3,A$:A$""A$(0)nA(A$)t**********************K062:832K,0:K "PRITEMASTER"8 X10 :Y10:XX1:YY1:PS43L VX0:VBP2 2220TN$A$:TN(TN$) 2220NA$""ESN$A$:SN(SN$):N$"DIR" "T=";T;" S=";SW5,"B-P:";3;2e J1 8x05,"B-P:";3;BPD 2220:F1$A$:F1(F1$) 63X 2220:l 2220: I1 16:2220 (A$)%(VB%) : CONTENTS VN%2(7VT%) : NEW BIT# = *******************P0 V21,0:"":kD ****** SET DATE ***X "--------- ------------l "";MO$;"/";TA$;"/19";JA$;" ";HO$;":";MI$;" O'CLOCK"!5,"B-R:"3;0;IT;IS!(5,"B-P:"3,0 "<I16:A$(I,2)"":I&"P2220:A 0 5600?"U2220:A255 5600W"Z2220:A 3 5600o"_2220:A21 5600"d5,"B-P:"3,71"x 2220:XA" 2220:XX256A"A$(1,2)(X)" 2220:XA"V & & &e8Ϣ hX`H)JJJJi0h)i0`6a?Uh>Ž` %R %#R@@DO YOU WISH TO SEE THECLOCK PERMANENTLY ?)ܭ 0, 0 ), i 760%"";A$((X$),1);" ";A$((X$),2)%21);"";&  (A$((X$),2))19 "";.&  A$((X$),2)9&4 5760?&HE&\V&p5,"B-P:"3,0|&3,(0);(255);(3);(21);(191);& I0 62&3,((832I));&I&3,(FT128);&3,(Y0:VT0 :` 2040,13:V21,1:V,30:V1,200/t JX114 X12314D IY11 Y121V P1024I40Jm 3000:VA%VI%VN% VA% 0 PS42 VA% 0 PS46 P1024 P2023 P,PS YY1: I : Y0 XX1:J:X0( PS43160 I16: 4540NA$NA$A$:I:5,"B-P:";3;BP19-2220:I1$A$:I1(I1$):I2220:I2$A$:I2(I2$):[  F10 4740~  N$"DIR" "";NA$:47404" "; (34);NA$;(34)H N$"DIR" 4740\ SU$(NA$,1,SU) " PRINT"";TA; "" "EAR :";JA2 "ONTH :";MOI "AY :";TA` "OUR :";HOw "INUTE :";MI "HANGE - TYPE FIRST TWO CHARACTERS OF CHOICE ( ,ETC.) "ONE - TYPE  2220:XX256A"A$(2,2)(X)" 2220:XA# 2220:XX256A #A$(3,2)(X)7#, 2220:A0 5460U#@A$(4,2)A$(4,2)A$: 5420g#T5,"B-P:"3,97~#h 2220:A0 5520#|A$(5,2)A$(5,2)A$: 5480#5,"B-P:"3,160# 2220:A0 5580(GT);(3,(JA);<3,(MO);P3,(TA);d3,(HO);$x3,(MI);Z AT1 AT35 ":LLEGAL TRACK":4040~5,"M-W:"(6)(0)(2)(AT)(AS)5,"M-W"(0)(0)(1)(144)"WRITTEN": "<> TO CONTINUE";X$ ***********************= * FROM THE BOOK *[ *'GEOS INSIDE AND OUT'*y * PUBLISHED BY ABACUS * *********************** 1,8,2,"WINDOW,P,W"$1,(128);(69);: LOAD ADDR OF $4580.X$: X$"XX"1100 8Y$(X$,[EEEE E V¥LJP( E((CLICK YES TO SEE NEXT PATTERNG  "TEST" PRG H "DESK TOP" USR< &BLOCKS FREE. H "DESK TOP" USR<  "ZZZZ" PRG EH  hLJŽ`BORDERCLOCK TEST USER TEST LAST ) *********************************Q * THIS PROGRAM CREATES A FILE, *y * WHICH MUST BE CONVERTED TO * * THE GEOS-FORMAT BY USING THE * * "FILE-MASTER". * * LOAD ADDRESS = DEC(20992) *  * ENTR?5Z*T5Z*T5*T4,??,488(8,46l~E}EEMY WINDOWRNr R T,54,20,50,41 54,54,45,52,4E,00ZV:1,(Z);This program steps through the various shadow patternsD")13(Y$"E")14(Y$"F")15$V0(16l*1&h`U@@$TF&#UUV%53 EEEFROM ABACUSPRG RUSS TABER" PRG H "DESK TOP" USR< A SIMPLE APPLICATION H "DESK TOP" USR<  "ZZZZ" PRG  1): 1120:ZV16A BY$(X$,1): 1120:ZZV:1,(Z);:CKCKZ:1070d L1: CK7105"ERROR IN DATA"j V `V(Y$"A")10(Y$"B")11(Y$"C")12(Y$"D")13(Y$"E")14(Y$"F")15 jVV(Y$): t MACHINE CODE ~ A9,FF,8D,A5,45,EE,A5,45 -1& 2 B61424 "ERROR IN DATA!", du e120,162,0,181,2,72,232,224,4,208,248,162,145,160,82,134,2,132,3,169 f44,141,205,241,141,47,243,32,86,194,169,32,141,205,241,141,47,243 g165,2,201,4,240,6,162,180,160,83,208,4,162,208,160,82,13$ FILEMASTER MANFRED TORNSDORF/(14)J( I0 7: SP% (I):IS<""gPV53248:V21,0d"LEASE INSERT DISKETTE & PRESS A KEY."xA$:A$""1205,8,15,"I"3,8,3,"#0""""-" 16,244,162,3,104,149,2,202,16,250,162e l62,160,194,142,155,132,140,156,132,96,129,11,37,26,163,82,11,37,35 m186,82,3,4,64,4,14,64,0,68,79,32,89,79,85,32,87,73,83,72,32,84,79 n32,83,69,69,32,84,72,69,0,67,76,79,67,75,32,24,80,69,82,77,65,789 o,32,217,249,141,27,133,173Ws8,220,104,133,1,88,96,32,180,249,205,24,133,240,4,238,24,133,96,169t1,141,24,133,238,23,133,173,23,133,201,13,208,20,169,1,141,23,133u238,22,133,173,22,133,201,100,208,5,169,0,141,22,133,96,172,23,133,v136,18,28,133,201,64,208Kz7,174,91,250,202,142,32,208,44,28,133,80,6,238,32,208,32,36,250,132{1,96,206,213,249,240,5,104,133,1,88,96,162,0,181,2,72,232,224,12|208,248,169,58,133,8,133,11,173,11,220,41,127,32,195,249,134,6,133}7,173,10,220,32  AD,A5,45,C9,20,F0,11,A26  A5,A0,45,86,02,84,03,20T  56,C2,A5,02,C9,04,D0,E5i  4C,4A,CC,00,00  TABLE FOR WINDOW PARAMETERS  01,14,50,10,00,28,01,0B  0A,10,B8,45,03,02,28,04  1B,28,00  TEXT FOR WINDOW  43,4C,4Y POINT = ""( """ ) *A  * END ADDRESS = DEC(21600) *i  * FILE TYPE = 5 (ACCESSORY)* ********************************* : (147); "PROGRAM NAME";F$  1,8,2,F$",P,W"  I0 592 # A:1,(A);:BBA (,195,249,134,9,133,10,173,9,220,32,195,249,134,12g~133,13,173,8,220,169,49,133,1,162,56,160,161,134,4,132,5,162,7,1690,133,3,181,6,10,38,3,10,38,3,10,38,3,133,2,169,208,24,101,3,1333,160,7,177,2,145,4,136,16,249,165,4,56,233,8,133,4,165,5,233,0,133=5,202,16,207,162,12,104,149,1,202,16,250,169,16,141,213,249,88,96}72,41,240,74,74,74,74,24,105,48,170,104,41,15,24,105,48,9672,232,224,12|208,248,169,58,133,8,133,11,173,11,220,41,127,32,195,249,134,6,133}7,173,10,220,32xHR,/ V© /SРR8~S6a?Uh>Ž` %R %#R@@DO YOU WISH TO SEE THECLOCK PERMANENTLY ?)ܭ 0, 0 ), i  4,2,132,3I h162,56,160,249,134,4,132,5,160,0,177,2,145,4,200,192,174,208,247 i162,126,160,83,134,2,132,3,162,237,160,249,134,4,132,5,160,0,177 j2,145,4,200,192,54,208,247,162,0,160,97,134,4,132,5,160,63,169,85 k145,4,136,169,170,145,4,136,w9,43,4B,20,18,59(  45,53,1B,20,54,4F,20,53F  45,45,20,4E,45,58,54,20d  50,51,54,54,45,52,4E,00m  XX$"A")10(Y$"B")11(Y$"C")12(Y$"D")13(Y$"E")14(Y$"F")15 jVV(Y$): t MACHINE CODE ~ A9,FF,8D,A5,45,EE,A5,45 69,78,84,76,89,32,27,63,0,173,15,220,41,127,141,15,220,173,25,133 p201,12,48,8,44,11,220,48,3,32,132,249,173,11,220,41,31,201,18,208 q2,169,0,44,11,220,16,5,248,24,105,18,216,32,217,249,141,25,133,173r10,220,32,217,249,141,26,133,173,9,220 5,205,249,72,192,1,208,11,173,22,133,41,3,208,4,104,169,29rw96,104,96,31,28,31,30,31,30,31,31,31,31,30,31,72,41,240,74,74,74x74,186,104,41,15,24,202,164,1,169,53,133,1,173,28,133,16,18,173,13y220,41,4,240,33,173,32,208,141,91,250,169,74,141A? A Inside & OutBE2AGEOS format V1.0 FILE-MASTER$single step V WINDOWV ClockFILEMASTER FINAL#SST LOADERWINDOW LOADERCLOCK LOADER AqUUR`TRFROM ABACUSV1.2MANFRED TORNSDORFT EOS format퀊a<9f}<9RɤiFROM ABACUSMANFRED TORNSDORFC GEOS GKKKKK BCC ACC.BCC APP.BCC ACC. LOADERBCC APP. LOADER50 HERTZ CHANGERSwap File V LASTKKKKKKKK (HHdhiGv \@>ܭ  ܩ ܢ܌ h>Ž`GhHGG5--LGܭ0 ܭ ܭGG@ܭ) GʎGGGhhGhHGGHGHG oGHHG $ FILEMASTER MANFRED TORNSDORF/(14)J( I0 7: SP% (I):IS<""gPV53248:V21,0d"LEASE INSERT DISKETTE & PRESS A KEY."xA$:A$""1205,8,15,"I"3,8,3,"#0""""-"   (147);: CLR SCREEN4 1,8,15,"I": 100S2,8,2,"GEOS KERNAL": 100q #2,A$,A$,T$,S$:100: 23,8,3,"#1": 100#1,"U1:"3;0;(T$);(S$)((19);B:BB1: BLOCK COUNTER-1,"B-P:"3;02#3,T$,S$:S$S$(0)7 < D FILE INFO = FDI": "REATE FILE = GEOS"b "NPUT/CHANGE DATE = DATE" "HANGE DISKETTES = DISK" "ND PROGRAM = END" "EAD INFO = INFO" N$"XXXXXXX" "OUREOS" 3540  180# 3:5:V21,0:A :**********************c Z10: 1380 : T0 Z10  4ATT: DIR-TRACK FOUND HASS: DIR SECTOR FOUND \ABBP: BUFFER POINTER FILETYPE pTFTS:SFSS: TRACK FILE,SECTOR FILE FI$NA$  $"FILE TYPE :";FT08"INFO TRACK :";ITLL"INFO SECTOR :";ISb`5,"B-P:";3;BP21~t"FILE STRUCTURE :";FS"GEOS F-TYPE :";GT; GT1 " =ASIC" GT2 " =SSEMBLER" GT1 GT2 "EAR)""<SV$"":I1SU: SV((SU$,I,1 )): SV192 SV219 SVSV96RSV$SV$(SV):I:h5,"B-R:"3;0;T ;Sy5,"B-P:"3,0BP2, 2220@TN$A$:TN(TN$)T 2220hNA$""|SN$A$:SN(SN$):N$"I" "T=";T;" S=";ST$): 2220:IS$A$:IS(IS$): FT0 2080P" ";FT;" ";TS;" ";SS;" ";(34);NA$;(34);e" ";IT;" ";ISy N$"I" 2080 SU$(NA$,1,SU) "FOUND.":Z11:  SV$(NA$,1,SU) "FOUND":Z11: NA$"":4DESK TOPV HITClock: K254 K0: 35/ A#3,A$:A(A$(0)):KK1C F AD I0:55X KII1: I4 60g P3,(128); U1,"M-W"(1);(0);(1);(144) Z 1 _"ALTERED": d1,A,B$: A B$: i n 13,220,3,127: COMAPRISON VALUES VX0:VY0:VT0 :` 2040,13:V21,1:V,30:V1,2006t JX114 X12314K IY11 Y121h P1024I40J:CMP54272 3000:VA%VI%VN% VA% 0 PS42 VA% 0 PS46 P1024 P2023 P,PS:CM,14 YY1: I : Y0"-------------"E "ONVERT ILES INTO FORMAT."N ""u "ISK DIRECTORY = DIR" ,"OAD SPRITE = SPL" @"REATE SPRITE = CSP" T"EAD FILE = RFL" |"ISPLAY XX1:J:X0( PS43#< P1024(Y1)40X14:CMP54272/P PR(P)Qd P1023P2024 P,PS:CM,14ex A$:A$""2680 A$""X23 XX1 A$""X0 XX1 A$""Y20 YY1 A$""Y0 YY1 A$" CHOICE";N$  N$"DIR" 40606 0 N$"SPL" 4060N D N$"CSP" 2320e X N$"RFL" 800~ l N$"DATE" 3160  N$"FDI" Z11 "": 980  N$"INFO" 5100  N$"DISK" 3:5:100  N$"END" 760  N$"G:% 2220:FSA:2220:GTA:2220:JAA:JA$(A)= 2220:MOA:MO$(A)i 2220:TAA:TA$(A):2220:HOA:HO$(A) 2220:MIA:MI$(A) 2220:LLA:2220:LHA: "";FI$;"" "STARTING TRACK :";TF "STARTING SECTOR :";SF :";JA "ONTH :";MO "AY :";TA3"OUR :";HOF("INUTE :";MIe<"FILE LENGTH :";LL256LHP "<> TO GO ON";X$:d ****************************x"":T18:S1:"AME TO SEARCH FOR:";SU$SU(SU$5,"B-P:";3;2 J1 85,"B-P:";3;BP; 2220:FT$A$:FT(FT$) 63W 2220:TS$A$:TS(TS$)s 2220:SS$A$:SS(SS$) I1 16:2220 (A$)160 I16: 18600NA$NA$A$:DI:X5,"B-P:";3;BP19l2220:IT$A$:IT(I  (203)64 2180 HBPBP32\J5p TN0 "":TTN:SSN:1520;O**************i#3,A$:A$""A$(0)uA(A$){**********************K062:832K,0:K "PRITEMASTER"8 X10 :Y10:XX1:YY1:PS43L*" PR42: A$" " PR46: A$"E" 3120- A$"" 2300>, P,PR:CM,14Y@ A$"*"A$" "2620dT 3000h A$"*" VB%,VI% VN%| A$" " VB%,VI%SP%(VT%) 2620 ***************** VY%Y :VX%((X)8):VT%X 3160 X$"HO" "OUR :";HO$:HO(HO$):3160O X$"MI" "INUTE :";MI$:MI(MI$):3160Z 3160| "": *****GEOS FILE SET**** IT0 3660 : SHOULD BE SET ITTF:ISSF:IT,IS5,"B-A:"0;IT;IS$5,A,B$,C ;3,(IS);3,(FS);3,(GT);(3,(JA);<3,(MO);-P3,(TA);;d3,(HO);Ix3,(MI); AT1 AT35 ":LLEGAL TRACK":40405,"M-W:"(6)(0)(2)(AT)(AS)5,"M-W"(0)(0)(1)(144)"WRITT h5,"B-R:"3;0;T ;S|5,"B-P:"3,0BP2  2220"TN$A$:TN(TN$)- 22208NA$""jSN$A$:SN(SN$):N$"DIR" "T=";T;" S=";S|5,"B-P:";3;2 J1 805,"B-P:";3;BPD 2220:F1$A$:F1(F1$) 63X 2220:l 22 4740 \ SU$(NA$,1,SU) "OUND": 49004 p SV$(NA$,1,SU) "OUND": 4900? NA$""W  (203)64 4860d BPBP32k J  TN0 "":TTN:SSN:4200  N$"DIR" "ORRY, NOT FOUND." "<> TO CO SCREEN*****! IT0 : TRACK=0"5,"B-R:"3;0;IT;IS"(5,"B-P:"3,02"<I16:A$(I,2)"":IK"P2220:A 0 5600d"U2220:A255 5600|"Z2220:A 3 5600"_2220:A21 5600"d5,"B-P:"3,71"x 2220:XA" 2220:XX256A,"B-P:"3,160# 2220:A0 5580 $A$(6,2)A$(6,2)A$: 5540$4$ **** CREATE INFO SCREEN ******[$A$(1,1)"1 OAD ADDRESS : "$A$(2,1)"2 ND ADDRESS : "$A$(3,1)"3 NTRY POINT : "$0A$(4,1)"4 LASS  "":6000% (X$)1 (X$)65760&"";A$((X$),1);" ";A$((X$),2)"&21);"";A&  (A$((X$),2))19 "";S&  A$((X$),2)^&4 5760d&Hj&\{&p5,"B-P:"3,0&3,(0);(255);(3);(21);(191);& I0 62&3,((832I)X1);'X(A$(4,2)): X19 X19'5,"B-P:"3,77( I1 X:X$(A$(4,2),I,1):3,X$;-(I :3,(0);L(X(A$(5,2)): X19 X19^((5,"B-P:"3,97(< I1 X:X$(A$(5,2),I,1):3,X$;(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"VX%8  VB%832VX%VY%3 : BYTE NUMBER- VI%(VB%) : CONTENTSO VN%2(7VT%) : NEW BITU o *******************0 V21,0:"":D ****** SET DATE ***X "--------- ------------l "";MO$CHOICE ( ,ETC.)  "ONE - TYPE )4 "OUR CHOICE";X$<H X$"END" s\ X$"YE" "EAR :";JA$:JA(JA$):3160p X$"MO" "ONTH :";MO$:MO(MO$):3160 X$"DA" "AY :";TA$:TA(TA$):,D:A,B$,C,D:8 C 0 ITC:ISD: 36000L"LEASE INPUT FILETYPE:"d`"ASIC=1 /=2 CC.=5 PPL.=6";X$:X(X$){t X1 X6 3660FS0:GTX5,"B-F:"0;IT;IS5,"B-R:";3;0;AT;AS5,"B-P:"3,AB193,(IT)EN": "<> TO CONTINUE";X$: ***LOOK FOR DIR & SPRITE***A"":T18:S1:N$"DIR" 4200f"AME TO SEARCH FOR:";SU$tSU(SU$)},""@SV$"":I1SU:SV((SU$,I,1 )): SV192SV219 SVSV96TSV$SV$(SV):I:20: I1 16:2220 (A$)160 I16: 4540NA$NA$A$: I:65,"B-P:";3;BP19R2220:I1$A$:I1(I1$):n2220:I2$A$:I2(I2$):  F10 4740  N$"DIR" "";NA$:47404" "; (34);NA$;(34)H N$"DIR" NTINUE";X$: $ *** READ SPRITE***!8"EAD SPRITE"S!L I10 "SPRITE NOT YET DEFINED":ZZ1 1000::5080k!`5,"B-R:"3;0;I1 ;I2|!t5,"B-P:"3,5! I0 62! 2220!832I,A:I,A;""!I:!!***READ INFO"A$(1,2)(X)" 2220:XA" 2220:XX256A#A$(2,2)(X)# 2220:XA4# 2220:XX256AE#A$(3,2)(X)\#, 2220:A0 5460z#@A$(4,2)A$(4,2)A$: 5420#T5,"B-P:"3,97#h 2220:A0 5520#|A$(5,2)A$(5,2)A$: 5480#5 : "$DA$(5,1)"5 UTHOR'S NAME : "%XA$(6,1)"6 ELP SCREEN : "B%l******************************i%"REATE NFO CREEN"% I 1 6:A$(I,1);A$(I,2):I%"NPUT NUMBER OR TO END ";X$% X$"E" );&I&3,(FT128);&3,(GT);&3,(FS); ' GT1 6340('$ X$=A$(1,2):GOSUB6720I'8 PRINT#3,CHR$(X2);CHR$(X1);^'LX$A$(1,2):6720r'`3,(X2);(X1);'tX$A$(2,2):6720'3,(X2);(X1);'X$A$(3,2):6720'3,(X2);(B-P:"3,160( I1 X:X$(A$(6,2),I,1):3,X$;)I :3,(0);+) IT1 IT53 " ALSE TRACK":6680O)5,"M-W:"(6)(0)(2)(IT)(IS)n)5,"M-W"(0)(0)(1)(144))"RITTEN":)5,"B-A:"0;IT;IS)5,A,B$,C,D:A,B$,C,D:) ;"/";TA$;"/19";JA$;" ";HO$;":";MI$;" O'CLOCK", PRINT"";TA;6 ""M "EAR :";JAd "ONTH :";MO{ "AY :";TA "OUR :";HO "INUTE :";MI "HANGE - TYPE FIRST TWO CHARACTERS OF  $ FILEMASTER MANFRED TORNSDORF/(14)J( I0 7: SP% (I):IS<""gPV53248:V21,0d"LEASE INSERT DISKETTE & PRESS A KEY."xA$:A$""1205,8,15,"I"3,8,3,"#0""""-" FILE INFO = FDI":"REATE FILE = GEOS"b"NPUT/CHANGE DATE = DATE""HANGE DISKETTES = DISK""ND PROGRAM = END""EAD INFO = INFO"N$"XXXXXXX""OUR EOS" 3540  180# 3:5:V21,0:A :**********************c Z10: 1380 : T0 Z10  4ATT: DIR-TRACK FOUND HASS: DIR SECTOR FOUND \ABBP: BUFFER POINTER FILETYPE pTFTS:SFSS: TRACK FILE,SECTOR FILE FI$NA$  !"$"FILE TYPE :";FT0"8"INFO TRACK :";ITL"L"INFO SECTOR :";ISb"`5,"B-P:";3;BP21~"t"FILE STRUCTURE :";FS""GEOS F-TYPE :";GT;" GT1 " =ASIC"" GT2 " =SSEMBLER"" GT1 GT2 ""EAR)#""<$SV$"":I1SU: SV((SU$,I,1 )): SV192 SV219 SVSV96R$SV$SV$(SV):I:h$5,"B-R:"3;0;T ;Sy$5,"B-P:"3,0$BP2$, 2220$@TN$A$:TN(TN$)$T 2220$hNA$""$|SN$A$:SN(SN$):N$"I" "T=";T;" S=";S$T$): &2220:IS$A$:IS(IS$):& FT0 2080P&" ";FT;" ";TS;" ";SS;" ";(34);NA$;(34);e&" ";IT;" ";ISy& N$"I" 2080& SU$(NA$,1,SU) "FOUND.":Z11:&  SV$(NA$,1,SU) "FOUND":Z11:& NA$"":&4 VX0:VY0:VT0 :(` 2040,13:V21,1:V,30:V1,2006(t JX114 X12314K( IY11 Y121]( P1024I40Jt( 3000:VA%VI%VN%( VA% 0 PS42( VA% 0 PS46( P1024 P2023 P,PS( YY1: I : Y0( XX1:J:X0(z"<> TO CONTINUE";X$),*@X(X$):X1(X256):X2(XX1256 ) *T2*h127,191,223,239,247,251,253,2545,2)): X19 X19^((5,"B-P:"3,97(< I1 X:X$(A$(5,2),I,1):3,X$;(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"]),)@X(X$):X1(X256):X2(XX1256 ))T*h127,191,223,239,247,251,253,2545,2)): X19 X19A((5,"B-P:"3,97h(< I1 X:X$(A$(5,2),I,1):3,X$;y(PI :3,(0);(dX(A$(6,2)): X40 X40(x5,"B-P:"3,160( I1 X:X$ A$"E" 3120 * A$"" 2300*, P,PR.*@ A$"*"A$" "26209*T 3000W*h A$"*" VB%,VI% VN%w*| A$" " VB%,VI%SP%(VT%)* 2620* ****************** VY%Y :VX%((X)8):VT%XVX%8* VB%832VX%VY%3 : BYTE NUMBER"-------------"E"ONVERT ILES INTO FORMAT."N""u"ISK DIRECTORY = DIR","OAD SPRITE = SPL"@"REATE SPRITE = CSP"T"EAD FILE = RFL"|"ISPLAY CHOICE";N$ N$"DIR" 406060 N$"SPL" 4060ND N$"CSP" 2320eX N$"RFL" 800~l N$"DATE" 3160 N$"FDI" Z11 "": 980 N$"INFO" 5100 N$"DISK" 3:5:100 N$"END" 760  N$"G:%!2220:FSA:2220:GTA:2220:JAA:JA$(A)=!2220:MOA:MO$(A)i!2220:TAA:TA$(A):2220:HOA:HO$(A)!2220:MIA:MI$(A)!2220:LLA:2220:LHA:!"";FI$;""!"STARTING TRACK :";TF!"STARTING SECTOR :";SF :";JA #"ONTH :";MO #"AY :";TA3#"OUR :";HOF#("INUTE :";MIe#<"FILE LENGTH :";LL256LH#P "<> TO GO ON";X$:#d ****************************#x"":T18:S1:#"AME TO SEARCH FOR:";SU$#SU(SU$5,"B-P:";3;2% J1 8%5,"B-P:";3;BP;% 2220:FT$A$:FT(FT$) 63W% 2220:TS$A$:TS(TS$)s% 2220:SS$A$:SS(SS$)% I1 16:2220% (A$)160 I16: 1860%0NA$NA$A$:%DI:%X5,"B-P:";3;BP19%l2220:IT$A$:IT(I (203)64 2180 'HBPBP32'\J5'p TN0 "":TTN:SSN:1520;'O'**************i'#3,A$:A$""A$(0)u'A(A$){''**********************'K062:832K,0:K' "PRITEMASTER"'8 X10 :Y10:XX1:YY1:PS43'L ( PS43)< P1024(Y1)40X14)P PR(P)-)d P1023P2024 P,PSA)x A$:A$""2680^) A$""X23 XX1{) A$""X0 XX1) A$""Y20 YY1) A$""Y0 YY1) A$"*" PR42:) A$" " PR46:)(A$(6,2),I,1):3,X$;(I :3,(0);) IT1 IT53 " ALSE TRACK":66802)5,"M-W:"(6)(0)(2)(IT)(IS)Q)5,"M-W"(0)(0)(1)(144)i)"RITTEN":~)5,"B-A:"0;IT;IS)5,A,B$,C,D:A,B$,C,D:)"<> TO CONTINUE";X$+ VI%(VB%) : CONTENTS$+ VN%2(7VT%) : NEW BIT*+ D+ *******************W+0 V21,0:"":r+D ****** SET DATE ***+X "--------- ------------+l "";MO$;"/";TA$;"/19";JA$;" ";HO$;":";MI$;" O'CLO 0/L"LEASE INPUT FILETYPE:"9/`"ASIC=1 /=2 CC.=5 PPL.=6";X$:X(X$)P/t X1 X6 3660^/FS0:GTXs/5,"B-F:"0;IT;IS/5,"B-R:";3;0;AT;AS/5,"B-P:"3,AB19/3,(IT);/3,(IS);/3,(FS);/3,(GT);  ***LOOK FOR DIR & SPRITE***1"":T18:S1:N$"DIR" 4200;1"AME TO SEARCH FOR:";SU$I1SU(SU$)R1,""1@SV$"":I1SU:SV((SU$,I,1 )): SV192SV219 SVSV961TSV$SV$(SV):I:1h5,"B-R:"3;0;T ;S1|5,"B-P:"3,01B I16: 45402NA$NA$A$:2I: 35,"B-P:";3;BP19'32220:I1$A$:I1(I1$):C32220:I2$A$:I2(I2$):U3  F10 4740x3  N$"DIR" "";NA$:474034" "; (34);NA$;(34)3H N$"DIR" 47403\ SU$(NA$,1,SU) "OUN "EAD SPRITE"(5L I10 "SPRITE NOT YET DEFINED":ZZ1 1000::5080@5`5,"B-R:"3;0;I1 ;I2Q5t5,"B-P:"3,5`5 I0 62k5 22205832I,A:I,A;""5I:55***READ INFO SCREEN*****5 IT0 : TRACK=05:XX256A6A$(2,2)(X)6 2220:XA 7 2220:XX256A7A$(3,2)(X)17, 2220:A0 5460O7@A$(4,2)A$(4,2)A$: 5420a7T5,"B-P:"3,97x7h 2220:A0 55207|A$(5,2)A$(5,2)A$: 548075,"B-P:"3,1607 2220:A0 55807A$( : "8XA$(6,1)"6 ELP SCREEN : "9l******************************>9"REATE NFO CREEN"a9 I 1 6:A$(I,1);A$(I,2):I9"NPUT NUMBER OR TO END ";X$9 X$"E" "":60009 (X$)1 (X$)657609:3,(FS);: GT1 6340:$ X$=A$(1,2):GOSUB6720;8 PRINT#3,CHR$(X2);CHR$(X1);3;LX$A$(1,2):6720G;`3,(X2);(X1);\;tX$A$(2,2):6720p;3,(X2);(X1);;X$A$(3,2):6720;3,(X2);(X1);;X(A$(4,2)): X19 X19;5,3,X$;<I :3,(0);= IT1 IT53 " ALSE TRACK":6680$=5,"M-W:"(6)(0)(2)(IT)(IS)C=5,"M-W"(0)(0)(1)(144)[="RITTEN":p=5,"B-A:"0;IT;IS=5,A,B$,C,D:A,B$,C,D:="<> TO CONTINUE";X$=,=@XCK", PRINT"";TA; , """, "EAR :";JA9, "ONTH :";MOP, "AY :";TAg, "OUR :";HO~, "INUTE :";MI, "HANGE - TYPE FIRST TWO CHARACTERS OF CHOICE ( ,ETC.), "ONE - TYPE$:HO(HO$):3160$. X$"MI" "INUTE :";MI$:MI(MI$):3160/. 3160Q. "": *****GEOS FILE SET****u. IT0 3660 : SHOULD BE SET. ITTF:ISSF:IT,IS.5,"B-A:"0;IT;IS.$5,A,B$,C,D:A,B$,C,D:.8 C 0 ITC:ISD: 360/(3,(JA);/<3,(MO);0P3,(TA);0d3,(HO);0x3,(MI);T0 AT1 AT35 ":LLEGAL TRACK":4040x05,"M-W:"(6)(0)(2)(AT)(AS)05,"M-W"(0)(0)(1)(144)0"WRITTEN":0 "<> TO CONTINUE";X$:0P21 22201TN$A$:TN(TN$)2 2220 2NA$""?2SN$A$:SN(SN$):N$"DIR" "T=";T;" S=";SQ25,"B-P:";3;2_2 J1 8r205,"B-P:";3;BP2D 2220:F1$A$:F1(F1$) 632X 2220:2l 2220:2 I1 16:22202 (A$)160 D": 4900 4p SV$(NA$,1,SU) "OUND": 49004NA$"",4 (203)64 486094BPBP32@4Jc4 TN0 "":TTN:SSN:42004 N$"DIR" "ORRY, NOT FOUND."4"<> TO CONTINUE";X$:4$ *** READ SPRITE***485,"B-R:"3;0;IT;IS5(5,"B-P:"3,06<I16:A$(I,2)"":I 6P2220:A 0 560096U2220:A255 5600Q6Z2220:A 3 5600i6_2220:A21 5600{6d5,"B-P:"3,716x 2220:XA6 2220:XX256A6A$(1,2)(X)6 2220:XA6 22206,2)A$(6,2)A$: 55407 8 **** CREATE INFO SCREEN ******08A$(1,1)"1 OAD ADDRESS : "W8A$(2,1)"2 ND ADDRESS : "~8A$(3,1)"3 NTRY POINT : "80A$(4,1)"4 LASS : "8DA$(5,1)"5 UTHOR'S NAME "";A$((X$),1);" ";A$((X$),2)921);"";:  (A$((X$),2))19 "";(:  A$((X$),2)3:4 57609:H?:\P:p5,"B-P:"3,0v:3,(0);(255);(3);(21);(191);: I0 62:3,((832I));:I:3,(FT128);:3,(GT);"B-P:"3,77; I1 X:X$(A$(4,2),I,1):3,X$;<I :3,(0);!<X(A$(5,2)): X19 X193<(5,"B-P:"3,97Z<< I1 X:X$(A$(5,2),I,1):3,X$;kh127,191,223,239,247,251,253,2545,2)): X19 X193<(5,"B-P:"3,97Z<< I1 X:X$(A$(5,2),I,1):3,X$;k